home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / flashdoc.lzh / XTERNAL.DO < prev   
Text File  |  1992-02-21  |  8KB  |  371 lines
  1. >** - top of file -|
  2. >**
  3.  
  4. xternal.do V. 3.0.0 - 07/03/91.
  5.  
  6. Copyright (C) 1992 by Al Fasoldt.
  7.  
  8. This is an example of a script that creates a mini-BBS.
  9.  
  10. I used this daily for about six months when I lived away from my 
  11. home. My ST at home was running on autopilot, making daily 
  12. telecomm calls, and I accessed it through a laptop computer.
  13.  
  14. One interesting function that XTERNAL.DO has is the ability to 
  15. run a DO script on command from a caller. It should be pretty 
  16. obvious how it is done if you read through the script.
  17.  
  18. The passwords and codes that were used are intact here. But you 
  19. can use your own. (No, I am not running this any more, so you 
  20. can stop worrying that someone will pick up an access code and 
  21. get into my computer.)
  22.  
  23. |
  24. >$H |
  25. >$U |
  26. >$W |
  27. >$X |
  28. >op c:\drivchek.dat|
  29. >if op jmp setparms|
  30. >$H "NOTE: Hard drive is off or not responding.||"|
  31. >L: setparms|
  32. >ca off|>mo at|>du ha|>echo off|>lf on|>xm 8clz|>cd p:\|>$P "A:\"|
  33. >ifi $X "setparms" jmp mainmenu|
  34. >L: top|
  35. >$P "A:\"|>** default path variable|
  36. >send " ||"|
  37. >send "||"|
  38. >send "Waiting for confirmation.... You have 120 seconds.||"|
  39. >get $Z 122|
  40. >if ~Z jmp quickquit|
  41. >ifi $Z "TT" jmp OK|
  42. >ifi $Z "Bob Fasoldt" jmp OK|
  43. >ifi $Z "Robert Fasoldt" jmp OK|
  44. >jmp quickquit|
  45. >L: OK|
  46. >send " ||"|
  47. >send "||"|
  48. >send "XTERNAL FILE TRANSFER PROGRAM, VERSION 1.3.1|"|
  49. >send "BY AL FASOLDT. COPYRIGHT 1991.|"|
  50. >send "||"|
  51. >ifi $Z "Fasoldt" jmp mainmenu|
  52. >ifi $Z "TT" send "<A>utomatic or <M>anual operation (a/M)? "|
  53. >get $X 10|
  54. >ifi $X "A" jmp auto|
  55. >L: mainmenu|
  56. >$X |
  57. >send " ||"|
  58. >ifi $H "off" send $H|
  59. >send "||"|
  60. >send "MAIN MENU|"|
  61. >send "*********||"|
  62. >ifi $Z "TT" send "<P>ath|"|
  63. >send "<S>end xmodem|"|
  64. >send "<R>eceive xmodem|"|
  65. >ifi $Z "TT" send "<V>iew personal messages|"|
  66. >ifi $Z "TT" send "<L>ist files in selected path or directory|"|
  67. >ifi $Z "TT" send "<X>modem transfer list|"|
  68. >ifi $Z "TT" send "<Z>modem send or receive|"|
  69. >ifi $Z "TT" send "<D>o TOBOB.DO Flash script|"|
  70. >ifi $Z "TT" send "<E>xecute any other Flash script|"|
  71. >ifi $Z "TT" send "<C>opy any file|"|
  72. >ifi $Z "TT" send "<K>ill any file|"|
  73. >send "<Q>uit|"|
  74. >send "<?> This menu again|"|
  75. >send "||Your choice: "|
  76. >get $X 60|
  77. >if ~X jmp warning|
  78. >L: choices|
  79. >ifi $X "P" jmp getpathvar|
  80. >ifi $X "S" jmp getvar_upl|
  81. >ifi $X "V" jmp bobmsg|
  82. >ifi $X "L" jmp dirlist|
  83. >ifi $X "Z" jmp zmodem|
  84. >ifi $X "X" jmp xmodir|
  85. >ifi $X "D" jmp tobob_script|
  86. >ifi $X "E" jmp flash_command|
  87. >ifi $X "R" jmp getvar_dnl|
  88. >ifi $X "K" jmp delete|
  89. >ifi $X "C" jmp copy|
  90. >ifi $X "Q" jmp zipout|
  91. >ifi $X "?" jmp mainmenu|
  92. >send "||Command not recognized.|"|
  93. >jmp mainmenu|
  94. >L: getpathvar|
  95. >ifi $Z "Fasoldt" jmp mainmenu|
  96. >send " "|
  97. >send "||"|
  98. >send "Type directory path, including backslashes,|"|
  99. >send "for current file operations.||"|
  100. >send "Press <RETURN> for default (Drive A):|"|
  101. >get $P 60|
  102. >if ~P jmp varA|
  103. >jmp mainmenu|
  104. >L: varA|
  105. >$P "A:\"|
  106. >jmp mainmenu|
  107. >L: dirlist|
  108. >ddir $P*.* o:\temp.dir|
  109. >send "||Files in the path you choose:||"|
  110. >send "||"|
  111. >ul as o:\temp.dir|
  112. >jmp mainmenu|
  113. >L: bobmsg|
  114. >send " "||"|
  115. >send "Transfering FROMBOB.TXT to you ...||"|
  116. >send "||"|
  117. >ul as a:\frombob.txt|
  118. >pa 1|
  119. >jmp mainmenu|
  120. >L: xmodir|
  121. >ifi $Z "Fasoldt" jmp mainmenu|
  122. >send " ||"|
  123. >send "Xmodem file directory of Drive A ...||"|
  124. >ddir a:\FBXM*.* o:\temp.dir|
  125. >send " "|
  126. >send "||"|
  127. >ul as o:\temp.dir|
  128. >jmp mainmenu|
  129. >L: getvar_dnl|
  130. >send "||"|
  131. >$X |
  132. >send " "|
  133. >send "Please type the name of the file: "|
  134. >get $X|
  135. >if ~X jmp getvar_upl|
  136. >send "||"|
  137. >send " "|
  138. >send "Ready to send ` "$X `" to your system.||"|
  139. >send "|Beginning transfer.||"|
  140. >pa 4|
  141. >ul xm $P$X|
  142. >if ~ul jmp ul_failed|
  143. >$Y |
  144. >send " "|
  145. >send "||"|
  146. >send "Do you want to download another file by Xmodem (y/N)? "|
  147. >get $X|
  148. >ifi $X "Y" jmp getvar_dnl|
  149. >jmp mainmenu|
  150. >L: zmodem|
  151. >send "||"|
  152. >$X |
  153. >send " "|
  154. >send "<S>end or <R>eceive zmodem? "|
  155. >get $X|
  156. >if ~X jmp mainmenul|
  157. >ifi $X "R" jmp getznames|
  158. >ifi $X "S" jmp reczmodem|
  159. >jmp mainmenu|
  160. >L: getznames|
  161. >send "|||Please type the filename(s) you wish to receive.|"|
  162. >send "Wildcards are OK.|"|
  163. >send ": "|
  164. >get $X|
  165. >if ~X jmp mainmenul|
  166. >send "|||Ready to send your zmodem download.|"|
  167. >cd $P|
  168. >pa 2|
  169. >exec o:\xyz.ttp -u $X|
  170. >cd p:\|
  171. >jmp mainmenu|
  172. >L: reczmodem|
  173. >send "|||Ready to receive your zmodem upload.|"|
  174. >cd $P|
  175. >pa 5|
  176. >exec o:\xyz.ttp|
  177. >cd p:\|
  178. >jmp mainmenu|
  179. >L: getvar_upl|
  180. >pa 1|
  181. >$X |
  182. >send " "|
  183. >send "||"|
  184. >send "Please type the name of the file: "|
  185. >get $X|
  186. >if ~X jmp upy2|
  187. >jmp upy3|
  188. >L: upy2|
  189. >$X |
  190. >send " "|
  191. >send "||"|
  192. >send "PLEASE type the name of the file: "|
  193. >get $X|
  194. >if ~X jmp mainmenu|
  195. >L: upy3|
  196. >send " "|
  197. >send "||"|
  198. >send "Ready to receive ` "$X `" from your system.||"|
  199. >send "Begin transfer...||"|
  200. >pa 3|
  201. >dl xm $P$X|
  202. >if ~dl jmp dl_failed|
  203. >send "||"|
  204. >jmp mainmenu|
  205. >L: ul_failed|
  206. >$X |
  207. >send "◆◆◆◆◆◆"|
  208. >send "||"|
  209. >send " "|
  210. >send "UPLOAD TO YOUR SYSTEM FAILED!||"|
  211. >send "Do you want to try again (y/N)? "|
  212. >get $X|
  213. >ifi $X "Y" jmp getvar_dnl|
  214. >send "||"|
  215. >jmp mainmenu|
  216. >L: dl_failed|
  217. >$X |
  218. >send "◆◆◆◆◆◆"|
  219. >send "||"|
  220. >send " "|
  221. >send "DOWNLOAD FROM YOUR SYSTEM FAILED!||"|
  222. >send "Do you want to try again (y/N)? "|
  223. >get $X|
  224. >ifi $X "Y" jmp getvar_upl|
  225. >jmp mainmenu|
  226. >L: delete|
  227. >ifi $Z "Fasoldt" jmp mainmenu|
  228. >send " "|
  229. >send "||"|
  230. >send "Name of the file to delete:||"|
  231. >get $X|
  232. >op $P$X|
  233. >if ~op jmp notfound|
  234. >send "||"|
  235. >send "File located. Press <RETURN> to cancel, <Y> to delete. "|
  236. >get $Y|
  237. >ifi $Y "Y" jmp doit|
  238. >jmp mainmenu|
  239. >L: doit|
  240. >kill $P$X|
  241. >pa 2|
  242. >op $P$X|
  243. >if ~op jmp killed|
  244. >send "||"|
  245. >send "File not deleted!||"|
  246. >jmp mainmenu|
  247. >L: notfound|
  248. >send "||"|
  249. >send "File not found!||"|
  250. >pa 2|
  251. >jmp mainmenu|
  252. >L: killed|
  253. >send "||"|
  254. >send "File deleted!||"|
  255. >pa 2|
  256. >jmp mainmenu|
  257. >L: zipout|
  258. >$X |
  259. >send " "|
  260. >send "||"|
  261. >send "||"|
  262. >send "Thank you for calling!|"|
  263. >send "||"|
  264. >L: quickquit|
  265. >cd p:\|
  266. >lf off|
  267. >HG|
  268. >end|
  269. >L: auto|
  270. >ifi $Z "Fasoldt" jmp mainmenu|
  271. >if ~ca jmp quickquit|
  272. >send "||"|
  273. >send " "|
  274. >send "Auto mode on.||"|
  275. >send "Uploading FROMBOB.TXT by ASCII transfer.||"|
  276. >ul as a:\frombob.txt|
  277. >pa 1|
  278. >send "||"|
  279. >send "End of ASCII upload.||"|
  280. >send "◆◆◆"|
  281. >send " "|
  282. >send "Downloading TOBOB.TXT by Xmodem transfer. Start your upload.||"|
  283. >pa 4|
  284. >dl xm a:\tobob.txt|
  285. >if ~dl jmp dl_try_2|
  286. >pa 1|
  287. >send "||"|
  288. >send " "|
  289. >send "Finished!||"|
  290. >jmp quickquit|
  291. >L: dl_try_2|
  292. >ifi $Z "Fasoldt" jmp mainmenu|
  293. >dl xm a:\tobob.txt|
  294. >if ~dl jmp no_dl|
  295. >pa 1|
  296. >send " "|
  297. >send "||"|
  298. >send "Finished!||"|
  299. >jmp quickquit|
  300. >L: no_dl|
  301. >send "||"|
  302. >send "◆◆◆◆◆◆◆◆◆◆"|
  303. >send " "|
  304. >send "Download unsucessful!||"|
  305. >jmp quickquit|
  306. >L: no_call|
  307. >lf off|
  308. >end|
  309. >L: copy|
  310. >ifi $Z "Fasoldt" jmp mainmenu|
  311. >send " "|
  312. >send "||"|
  313. >send "File to copy (full path name optional): "|
  314. >get $X 120 manual|
  315. >op $X|
  316. >if ~op jmp nocopy|
  317. >send "||"|
  318. >send "Copy to (full path name optional): "|
  319. >get $Y 120|
  320. >if ~Y jmp mainmenu|
  321. >ca cl|
  322. >ca on|
  323. >lo ca $X|
  324. >sa ca $Y|
  325. >ca cl|
  326. >send "||"|
  327. >send "Copy finished.||"|
  328. >pa 2|
  329. >jmp mainmenu|
  330. >L: nocopy|
  331. >send "||"|
  332. >send "Target file not found!||"|
  333. >pa 5|
  334. >jmp mainmenu|
  335. >L: warning|
  336. >send "◆◆ ◆◆ ◆ ◆◆      ◆◆◆◆      ◆◆ ◆ ◆◆ ◆◆ ◆◆"|
  337. >send "◆◆    ◆  ◆        ◆◆◆◆◆◆◆◆◆   ◆◆◆◆◆◆◆◆◆"|
  338. >send "Please respond within 60 seconds...|"|
  339. >get $X 62|
  340. >ifi $W "slow response" jmp quickquit|
  341. >$W "slow response"|
  342. >jmp mainmenu|
  343. >L: tobob_script|
  344. >$U "do tobob.do"|
  345. >send " "|
  346. >send "||"|
  347. >send "Executing TOBOB.DO...|"|
  348. >jmp quickquit|
  349. >L: flash_command|
  350. >send " "|
  351. >send "||"|
  352. >send "Type the name of the DO file you want to execute.||"|
  353. >send "Do NOT type `"DO`" in front of the command.|"|
  354. >send "Type the full name (with extender) of the DO file only.||"|
  355. >send "Type `"HELP`" for a list of available DO files.||"|
  356. >send "Press <RETURN> to exit to Main Menu.||"|
  357. >send ": "|
  358. >get $X 62|
  359. >if ~X jmp mainmenu|
  360. >ifi $X ".do" jmp do_execute|
  361. >ifi $X "do" jmp flash_command|
  362. >ifi $X "?" jmp flash_command|
  363. >ifi $X "help"